E (SETQ $PRINT-BUDGET-MONTHLY nil)
READ (SALARY IN DSK (PRO HE))
READ (AFO82 IN DSK (PRO HE))
BUDGET FIRST-YEAR (AFO82A OUT DSK (PRO HE))
BUDGET SECOND-YEAR (AFO82B OUT DSK (PRO HE))
BUDGET THIRD-YEAR (AFO82C OUT DSK (PRO HE))